{-# LANGUAGE ExistentialQuantification #-}

module ObsObject where

import PixObject

-- Тип-контейнер для объектов наследованных от PixObject

data ObsObject = forall a . PixObject a => ObsObject a

--

instance PixObject ObsObject where
   pixelization ins (ObsObject o) = pixelization ins o
